home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / x / window / gimmicks.mta < prev   
Encoding:
Text File  |  1994-12-03  |  1.3 KB  |  39 lines
  1.  
  2. % Create the "Resize" button
  3. o($1,("00ZA") S . 0 0 2 1 Extra 0 );
  4.   bg($1,("00ZA") . ("sz"));
  5.   cn(rbK ("ResizeWdw();"));
  6.   eg();
  7. % Create the "Close" button: this button reduces the screen size of the wdw
  8. o($1,("00ZB") S . [((int)WDW:$1.sx)/((int)SVR:video.CharX) - 2.0] 0 2 1 Extra);
  9.   bg( $1,("00ZB") . ("cl") );
  10.   cn(raK ("IconizeWdw();")
  11.          ("                                                                    ")
  12.          ("                                                                    ")
  13.          ("SelectWdw("),$1,(");") );
  14.   eg();
  15. % Reduce the button pos and size
  16. (int)OBJ:$1,("00ZB").x-=5;
  17. (int)OBJ:$1,("00ZB").X-=5;
  18.  
  19. % Create the window "Move" button with parameter $2 as its descriptive text
  20. o($1,("00ZC") S . 0 0 100 1 Extra);
  21.   bg($1,("00ZC") . $2);cn(rbK("MoveWdw();"));
  22.   eg();
  23.  
  24. % Resize the window "Move" button
  25. (int)OBJ:$1,("00ZC").X:=(int)OBJ:$1,("00ZA").x+1;
  26. (int)OBJ:$1,("00ZC").x:=(int)OBJ:$1,("00ZB").X-1;
  27.  
  28. % Create the two macros for the "Close" button: the need the window name and
  29. % that's why they are a bit complicated
  30. % Intended action: "(str)WDW:WINDOWNAME.sx:=20;"
  31. % these actions have to be embedded in the "raK1" and "raK2" strings
  32. % Use the object editor within xbw to find out what's intended
  33. (str)OBJ:$1,("00ZB").raK1 := ("(int)WDW:"),$1,(".sx := 150;");
  34. (str)OBJ:$1,("00ZB").raK2 := ("(int)WDW:"),$1,(".sy := 16;");
  35.  
  36.  
  37. End();
  38.  
  39.